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DECUS Program Library Write-up 


DECUS NO. 8-579 


"LISTIT" 


Function: Reads an ASCII paper tape, either 7 or 8-level code, 

and prints its contents on the console TTY or Decwriter, restoring 
tabs and ejecting pages of uniform length. 

Hardware: PDP-8/E, P, or M; console typewriter; paper tape reader, 

either high-speed (optical) or low (TTY reader). 

Core: (Field 0 only) The program is contained in locations 0 

to 336; buffer storage, in locations 4001 to 7540. 

Offset: S.R. bits 6-11 are read when the program is started and 

stored as an offset count. The tab expansion, in multiples of 8 
spaces, begins where the offset ends. This allows correct listing 
of tapes output by assemblers. For PAL-III third-pass tapes, for 
example, the proper offset is 12 columns (octal 14;; for source 
tapes the offset is 0. 

Pagination: (a) all pages printed by Listit are 70 lines long; this 

includes the margins at top and bottom. 

(b) pages are ejected after 58 lines of text, if no other 
provision has been made on the tape being read. 

(c) 4 successive carriage returns (or CR/LF's) cause a 
page ejection; so also does a FORM code. 

(d) carriage returns and FORMs read after a page ejection 
are ignored until some other significant code has been read. This 
prevents multiple ejections. 

Example: PAL-III echoes a FORM on the source tape by 6 CR/LF's, 

FORM, and 6 more CR/LF's. Listit in turn echoes all this by one 
page ejection. 

Since 55 lines (or less) is a fairly standard page length, the pre¬ 
sumption is that user-written format will take precedence of the 
58 line default eject in Listit. 

Input Format: (a) blanks, code 200, rubouts.and line feeds are ignored. 

(b) other codes are read as 7 bits, ignoring parity. . 

(c) carriage returns generate CR/LF pairs on output. 

Use: Load Listit into Field 0 with the Binary Loader. 

Load address = 0200; set bits 6-11 to offset. 

Turn on console printer; load tape to be listed into reader. 

Start. The program runs until halted at the processor. 
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User Modification : Locations 100,101,330, and 332 (see listing) may be 

altered to meet the user's needs. To change, for example, 
the default ejection from 58 lines to 60 lines, deposit 
7704 into location 330. 


Other Uses: 


__ ( a ) it is perfectly feasible to use this routine with the 

console keyboard as its input source. The offset feature enables one 


to make the first tab code any arbitrary number of columns; the page 
eject (FORM) might also be useful. 

(b) Listit can be used as a simple paginator for getting 
manageable copy from a long tape. One might want to use it with 
BASIC language programs, since the language allows little user control 
of source program format. 

(c) the author believes this program could be modified for ■% 
use with a line printer, but has no such device available to make thdP 
experiment. 


Glitch. The tail of a tape passing through the high-speed reader 

can generate a garbage character at the end of a print-out. One 
cure is to square off the tape end with scissors; another, to toggle 
m a FORM code and punch it on the tape at the time of its making. 
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/ "LISTIT" IMTERRUPT VERSION 
/ 9/26/72 

/PROGRAM TO LIST SOURCE & 3RD-PASS TAPES. 
FIELD 0 
* 1 

0001 7200 CL A 

0002 5020 JMP 20 

* 20 


0020 

0000 

SV# 

0 

0021 

6011 


RSF 

0022 

5057 


JMP LO 

002 3 

6012 


RRB 

0024 

0111 

TEST# 

AND K 177 

0025 

7421 


MGL 

002 6 

1010 


TAD 10 

0027 

1112 


TAD K240 

0030 

7710 


SPA CLA 

0031 

5035 


JMP GETMOR 



/- 


0032 

1063 


TAD STOP 

0033 

3020 


DCA SW 

00 34 

5037 


JMP READ 



/ - 


00 35 

6032 

GETMOR# 

KCC 

0036 

6014 

/_ 

RFC 

0037 

7501 

READ# 

MQA 

0040 

7440 


SZA 

0041 

1077 


TAD Ml 77 

0042 

7650 


SNA CL A 

0043 

5104 


JMP EXIT2 

0044 

7501 


MQA 

0045 

1113 


TAD M 12 

0046 

7450 


SNA 

0047 

5104 


JMP EXI T2 

0050 

1114 


TAD M26 

0051 

7710 


SPA CLA 

0052 

5055 


JMP . + 3 

0053 

7501 


MQA 

0054 

5507 


JMP I PRI 

005 5 

7501 


MQA 

0056 

5510 


JMP I NONP 

0057 

6031 

r 

o 

u 

KSF 

0060 

5064 


JMP PUN 

0061 

6034 


KRS 

0062 

5024 


JMP TEST 


/0 OR JMP PUN 


/STRIP TO 7 BI TS (DROP PARITY) 


/STORAGE FULL* HALT READER 


/STILL ROOM IN STORAGE# 
/ RESTART READERS 


/I GUO RE BLANKS# 200# RUBOUTS 


/...AND LINE FEEDS 
/A PRINTING CHARACTER? 

/Y ES 
/NO 


0063 5064 STOP# JMP PUN 
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0064 

6041 

PUN, 

TSF 

0065 

5077 


JMP EXIT 

0066 

1010 


TAD 10 

0067 

7041 


CIA 

007 0 

1011 


TAD 1 1 

0071 

7710 


SPA CLA 

0072 

5075 


JMP PINCH 



/--- 


0073 

4115 


JMS RESET 

0074 

5077 


JMP EXIT 



/- 


007 5 

1411 

PUNCH, 

TAD I 11 

0076 

6046 


TLS 

0077 

7601 

EXI T, 

7601 

0100 

7410 


SKP / ** 

0101 

7000 


NOP / ** 

0102 

6001 


ION 

0103 

5400 


JMP I 0 

0104 

7200 

EX I T2, 

KCC 

0105 

7200 


RFC 

0106 

5064 


JMP PIN 

0107 

0223 

PRI, 

PRNTNG 

0110 

0235 

NON P, 

NONPRI 

0111 

0177 

K 177, 

177 

0112 

0240 

K240, 

240 

0113 

7766 

Ml 2, 

- 12 

0114 

7752 

M2 6, 

-26 



Ml 77- 

EXI T 

0115 

0000 

RESET, 

0 

0116 

7330 


CL A STL RAR 

0117 

3010 


DCA 10 

0120 

7130 


STL RAR 

0121 

3011 


DCA 11 

0122 

1020 


TAD SW 

0123 

7650 


SNA CL A 

0124 

5515 


JMP I RESET 

0125 

6032 


KCC 

0126 

6014 


RFC 

0127 

3020 


DCA SW 

0130 

5515 


JMP I RESET 


/CAUGHT UP WITH READER? 

/NO 

/YES 

/C - CL A] 


/...AFTER CHECKING PUNCH 


/ 4000 

/RESET TEXT POINTERS 

/C SW»0 IF READER IS RUNNING] 
/NO NEED TO RESTART RDRS. 

/SW NOT 0, RESTART READERS 
/ENABLE RDR. SKIP CHAIN 


/ ** CHANGE THESE TO FLAG KILLER CODES 
/ < I F SPURIOUS INTERRUPTS ARE A PROBLEM) 
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*200 


/START (SET BITS 6-11 TO OFFSET) 

/ PAL-111 3RD PASS* OFFSET-14 OCTAL 

/ SOURCE TAPES* OFFSET-0 


0200 

6032 


KCC 


0201 

6014 


RFC 


0202 

6040 


SPF 


0203 

3334 


DCA 

CRCT 

0204 

3020 


DCA 

sw 

0205 

4115 


JMS 

RESET 

0206 

7604 


LAS 


0207 

0322 


AND 

K77 

0210 

7041 


CIA 


0211 

3336 


DCA 

OFFSET 

0212 

3333 


DCA 

LINECT 

0213 

1333 

LINE* 

TAD 

LINECT 

0214 

1330 


TAD 

M72 

0215 

7700 


SMA 

CL A 

0216 

5306 


JMP 

FORM 

0217 

1336 


TAD 

OFFSET 

0220 

3335 


DCA 

LTRCT 

0221 

6001 

CHAR* 

ION 


0222 

5222 


JMP 

• 

0223 

3410 

PHNTNG* 

DCA 

I 10 

0224 

3334 


DCA 

CRCT 

0225 

2335 


I SZ 

LTRCT 

0226 

0007 

K7* 

7 


0227 

1335 


TAD 

LTRCT 

0230 

7550 


SPA 

SNA 

0231 

5221 


JMP 

CHAR 

0232 

0226 


AND 

K7 

0233 

3335 


DCA 

LTRCT 

0234 

5221 


JMP 

CHAR 

0235 

1327 

NONPRI* 

TAD 

M 15 

02 3 6 

7640 


SZA 

CL A 

0237 

5255 


JMP 

NOTCR 

0240 

1334 

CR* 

TAD 

CRCT 

0241 

7510 


SPA 


0242 

5221 


JMP CHAR 

0243 

1332 


TAD 

M3 

0244 

7700 


SMA 

CLA 

0245 

5306 


JMP 

FORM 

0246 

2334 


I SZ 

CRCT 

0247 

2333 


I SZ 

LINECT 

02 50 

1324 


TAD 

K 15 

0251 

3410 


DCA 

I 10 

02 52 

1323 


TAD 

K 12 

0253 

3410 


DCA 

I 10 

0254 

5213 


JMP 

LINE 


/INITIALIZE POINTERS 
/BITS 6-11 - OFFSET 


/58 LINES ■ DEFAULT EJECT 


/COUNTS PRINTING CHARS. 


/WAIT FOR INTERRUPT 


/NON-C. R.* CLEAR "CRCT" 


/ PO SI TI VE? 

/NO* STILL READING OFFSET 
/YES 

/STORE COUNT (MODULO 8) 

/ C. R. ? 

/NO 

/YES. IS ”CRCT M < 0 ? 

/YES* SO I 010RE C. R. 

/NO 

/ 4TH C. R. IN A ROW. EJECT. 
/NOT YET* BUT COUNT UP "CRCT" 
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0855 

7501 

NOTCH# 

MQA 


0856 

1326 


TAD 

M 14 

0B57 

7640 


SA 

CL A 

0860 

5265 


JMP 

NOTFHd 

0861 

1334 

W m.t 

TAD 

CRCT 

0868 

7710 


SPA 

CL A 

0863 

5221 


JMP 

CHAR 

0864 

5306 


JMP 

FORM 

0865 

3334 

f »■*•*»■**» 1 

NO TFHM# 

DCA 

CRCT 

0866 

7501 


MQA 


0867 

1325 


TAD 

Mil 

0870 

7650 


SNA 

CL A 

0871 

5275 


JMP 

TAB 

0872 

7501 


MQA 


0873 

3410 


DCA 

I 10 

0874 

5221 


JMP 

CHAR 

087 5 

1226 

TAB# 

TAD 

K7 

0876 

7040 


CM A 


0877 

1335 


TAD 

LTRCT 

0300 

3335 


DCA 

LTRCT 

0301 

1112 


TAD 

K240 

0302 

3410 


DCA 

I 10 

0303 

2335 


IS Z 

LTRCT 

0304 

5301 


JMP 

.-3 

0305 

5221 


JMP 

CHAR 

0306 

1331 

FORM# 

TAD 

M 106 

0307 

1333 


TAD 

LINECT 

0310 

3333 


DCA 

LINECT 

0311 

1324 


TAD 

K 15 

0312 

3410 


DCA 

I 10 

0313 

1323 


TAD 

K 12 

0314 

3410 


DCA 

I 10 

0315 

2333 


I SZ 

LINECT 

0316 

5313 


JMP 

.-3 

0317 

7040 


CM A 


0320 

3334 


DCA 

CRCT 

0321 

5213 


JMP 

LINE 

0322 

0077 

K77# 

77 


0323 

0012 

K12# 

12 


0324 

0015 

K 15# 

15 


0325 

7767 

Mil# 

-11 


0326 

7764 

M 14# 

- 14 


0327 

7763 

Ml 5# 

- 15 


0330 

7706 

M72# 

-72 

/Cl 

0331 

7672 

Ml 06# 

- 106 

0332 

7775 

M3# 

-3 

/ 4 


/FORM? 

/NO 

/YES. IS "CRCT" < 0 ? 

/YES* FORGET FORM FEED 
/NO# EXECUTE IT 

/(CLEAR "CRCT”) 

/TAB? 

/YES 

/NO 

/STORE IT 

/AND LOOK FOR NEW CHAR 

/- 10 OCTAL 

/SPACES TO NEXT TAB STOP 
/STORE SPACES 

/EJECT PAGE* SUBTRACT 70 
/ FROM LINE COUNT 

/ONE C. R. 

/(70-LINECT) LINE FEEDS 

/COR .-5 # FOR CR/LF’SJ 

/INHIBIT C. R. & FORM FEEDS 
/"LINECT" BEING NOW 0 


TROLS DEFAULT PAGE EJECTION 
♦ R. * S = EJECT 
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033 3 

0000 

LINECT* 

0 

/MO* OF LINES SINCE LAST PAGE EJECT 

0334 

0000 

CRCT# 

0 

/NO* OF SUCCESSIVE C. R. OR CR/LF’S 

0335 

0000 

LTRCT# 

0 

/NO. OF PRINTING CHARACTERS C- OFFSET] 




/ 

SINCE LINE BEGAN CMODULO 8# IF > 0 ] 

033 6 

0000 

OFFSET# 

0 

/COMPENSATES FOR INDENTATION OF TEXT 




/ 

IN CERTAIN FORMATS ( E. G. * LISTINGS) 


CHAR 

0221 

CR 

0240 

CRCT 

0334 

KIT 

0077 

KIT2 

0104 

FORM 

0306 

GETMOR 

0035 

K12 

0323 

K15 

0324 

K177 

0111 

K240 

0112 

K7 

0226 

K77 

0322 

LINE 

0213 

UNECT 

0333 

ID 

0057 

LTRCT 

0335 

Ml 06 

0331 

MU 

0325 

Ml 2 

0113 

Ml 4 

0326 

Ml 5 

0327 

Ml 77 

0077 

M26 

0114 

M3 

0332 

M72 

0330 

NON P 

0110 

NONPRI 

0235 

NOTCH 

0255 

MOTFHM 

0265 

OFFSET 

0336 

FRI 

0107 

FHNTNG 

0223 

PUN 

0064 

FUNCH 

0075 

READ 

0037 

RESET 

0115 

STOP 

0063 

SV 

0020 

TAB 

0275 

TEST 

0024 
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